load("/Users/Kitty/git/fluffyDNA/prep/ssdeep/ssdeep.match.txt.Rdata")
load("/Users/Kitty/git/fluffyDNA/prep/ssdeep/ssdeep.match.mat.txt.Rdata")
load("/Users/Kitty/git/fluffyDNA/prep/ssdeep/ssdeep.match.mat.hclust.Rdata")
table(ssdeeps$SEARCH == ssdeeps$RESULT)
##
## FALSE TRUE
## 1005484 2534
haplogroups = read.delim(
"/Users/Kitty/git/fluffyDNA/prep/haplogrep/haplogroups.txt",
header = TRUE,
stringsAsFactors = FALSE
)
hist(ssdeeps$SCORE)

plot(hc1, cex = 0.6, hang = -1)
library(plotly)
## Loading required package: ggplot2
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout

p <-
plot_ly(
x = ssdeeps$SEARCH,
y = ssdeeps$RESULT,
z = ssdeeps$SCORE,
type = "heatmap"
)
p